open Ast_TablePro
open Printer
let _ =
let lexbuf = Lexing.from_channel stdin in
let program = Parser_TablePro.program Scanner_TablePro.token lexbuf in
let listing = Printer.string_of_program program in
print_string listing
